10 REM ***  PORTAMENTO - EFFEKT
11 :
12 :N =7492 :REM ANFANGSNOTE
13 :M =1    :REM MODE       (PORT-MODE)
14 :Z =1400 :REM ZAEHLER    (LEVEL)
16 :EF=100  :REM EFFEKTBYTE
19 :
20 REM * TON EINSCHALTEN
21 :
22 S=54272:POKES+4,8:POKES+24,15 :REM VOLLE LAUTSTAERKE
23 POKES+6,248:POKES+5,0:POKES+4,33 :REM ADSR UND SAEGEZAHN-WELLENFORM POKEN
29 :
40 REM * PORTAMENTO !
41 :
42 REM START
43 :
44 TN=N  :REM  ANFANGSTONHOEHE SETZEN
45 :
50 REM SCHLEIFE
51 :
52 POKES+1,TN/256:POKES,TNAND255 :REM  TONHOEHE IN SID POKEN
53 IF(MAND3)=1THENTN=TN-Z:IFTN<EFTHEN70 :REM TONHOEHE VERMINDERN, GGF. ZUM ENDE
54 IF(MAND3)=2THENTN=TN+Z:IFTN>EFTHEN70 :REM TONHOEHE ERHOEHEN, GGF. ZUM ENDE
55 GOTO52 :REM WEITERMACHEN
69 :
70 REM AUSWERTUNG BEI SCHLEIFENENDE
71 :
72 IF(MAND4)=4THEN44 :REM  BEI MODUS>4 PORTAMENTO ERNEUT AUSFUEHREN.
73 POKES+4,32 :REM  TON AUSKLINGEN LASSEN